home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / general / Float.st < prev    next >
Text File  |  2000-02-13  |  2KB  |  95 lines
  1. Class Float :Number
  2. [
  3.    = aNumber
  4.       ^ <primitive 6 self aNumber>
  5.          ifTrue:  [<primitive 66 self aNumber>]
  6.          ifFalse: [super = aNumber]
  7. |
  8.    < aNumber
  9.       ^ <primitive 6 self aNumber>
  10.          ifTrue:  [<primitive 62 self aNumber>]
  11.          ifFalse: [super < aNumber]
  12. |
  13.    > aNumber
  14.       ^ <primitive 6 self aNumber>
  15.          ifTrue:  [<primitive 63 self aNumber>]
  16.          ifFalse: [ super > aNumber]
  17. |
  18.    + aNumber
  19.       ^ <primitive 6 self aNumber>
  20.          ifTrue:  [<primitive 60 self aNumber>]
  21.          ifFalse: [super + aNumber]
  22. |
  23.    - aNumber
  24.       ^ <primitive 6 self aNumber>
  25.          ifTrue:  [<primitive 61 self aNumber>]
  26.          ifFalse: [super - aNumber]
  27. |
  28.    * aNumber
  29.       ^ <primitive 6 self aNumber>
  30.          ifTrue:  [<primitive 68 self aNumber>]
  31.          ifFalse: [super * aNumber]
  32. |
  33.    / aNumber
  34.       ^ <primitive 6 self aNumber>
  35.          ifTrue:  [<primitive 69 self aNumber>]
  36.          ifFalse: [super / aNumber]
  37. |
  38.    ^ aNumber  "the ^ serves as an expotentiation operator also!"
  39.       ^ <primitive 6 self aNumber>
  40.          ifTrue:  [<primitive 88 self aNumber>]
  41.          ifFalse: [super raisedTo: aNumber]
  42. |
  43.    arcCos
  44.       ^ Radian new: <primitive 85 self>
  45. |
  46.    arcSin
  47.       ^ Radian new: <primitive 84 self>
  48. |
  49.    arcTan
  50.       ^ Radian new: <primitive 86 self>
  51. |
  52.    asFloat
  53.       ^ self
  54. |
  55.    asString
  56.       ^ <primitive 78 self>
  57. |
  58.    ceiling
  59.       ^ <primitive 73 self>
  60. |
  61.    coerce: aNumber
  62.       ^ aNumber asFloat      "Force a number to become a Float" 
  63. |
  64.    exp
  65.       ^ <primitive 79 self>
  66. |
  67.    floor
  68.       ^ <primitive 72 self>
  69. |
  70.    fractionPart
  71.       ^ <primitive 76 self>
  72. |
  73.    gamma
  74.       ^ <primitive 77 self>  "If implemented!"
  75. |
  76.    integerPart
  77.       ^ <primitive 75 self>
  78. |
  79.    ln
  80.       ^ <primitive 70 self>
  81. |
  82.    radix: aNumber
  83.       ^ <primitive 89 self aNumber>
  84. |
  85.    rounded
  86.       ^ <primitive 72 (self + 0.5)>
  87. |
  88.    sqrt
  89.       ^ <primitive 71 self>
  90. |
  91.    truncated
  92.       ^ (self < 0.0)  ifTrue:  [<primitive 73 self>]
  93.                      ifFalse:  [<primitive 72 self>]
  94. ]
  95.